program sortowanie;
const zakres = 99;
var
    liczby:array [1..zakres] of integer;
    i,j,k,n:integer;
 
procedure czytaj;
  begin
    writeln('Program sortuje dane metoda babelkowa');
    write('Podaj ilosc liczb: '); read(n);
    for i:=1 to n do
      begin
        write('Liczba ',i,' = '); read (liczby[i]);
      end;
  end;
 
procedure pisz;
  begin
    writeln('Oto posegregowane elementy:');
    for i:=1 to n do
      begin
        write(liczby[i],' ');
      end;
  readln
  end;
 
begin
  czytaj;
  for i:=2 to n do
  for j:=n downto i do
    begin
    if liczby[j-1] > liczby[j] then
      begin
        k:=liczby[j-1];
        liczby[j-1]:=liczby[j];
        liczby[j]:=k;
      end;
    end;
  pisz;
  readln
end.
